<!--------' A SCRIPT LANGUAGE tag should be the first item on this page ------->
</SCRIPT>
<!--
This page is implemented using a draft specification recently published by the
Worldwide Web Consortium (W3C) that extends HTML capabilities to provide exact,
2D layout features. Refer to http://www.w3.org/pub/TR/WD-layout.htm for more
information on the tags used in these pages. This source page is displayed in
the Internet Explorer 3.0 using the Microsoft HTML Layout Control.
-->
<!-- Variables represent X10 increments for counter. -->
<SCRIPT LANGUAGE="VBScript">
<!--
dim w
dim y
dim z
dim x
dim t
-->
</SCRIPT>
<!-- Above variables set to predefined number to start. -->
<SCRIPT LANGUAGE="VBScript">
<!--
Sub cover_OnLoad()
w=0
x=4
y=7
z=3
t=0
end sub
-->
</SCRIPT>
<!-- Cup N go controls are transparent labels which retain their state as the image beneath them changes. These controls choose other pages. -->
<SCRIPT LANGUAGE="VBScript">
<!--
Sub cup1go_MouseDown(Button, Shift, X, Y)
empcup1.Visible = True
fulcup1.Visible = False
end sub
Sub cup1go_MouseUp(Button, Shift, X, Y)
Window.location.href = "Volcano.htm"
end sub
-->
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub cup2go_MouseDown(Button, Shift, X, Y)
fulcup2.Visible = False
empcup2.Visible = True
end sub
Sub cup2go_MouseUp(Button, Shift, X, Y)
Window.location.href = "beans.htm"
end sub
-->
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub cup3go_MouseDown(Button, Shift, X, Y)
fulcup3.Visible = False
empcup3.Visible = True
end sub
Sub cup3go_MouseUp(Button, Shift, X, Y)
Window.location.href = "products.htm"
end sub
-->
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub cup4go_MouseDown(Button, Shift, X, Y)
fulcup4.Visible = False
empcup4.Visible = True
end sub
Sub cup4go_MouseUp(Button, Shift, X, Y)
Window.location.href = "cafe.htm"
end sub
-->
</SCRIPT>
<!-- MouseMove events on page simulate real dynamic data to drive counter. -->
<SCRIPT LANGUAGE="VBScript">
<!--
Sub guzzle_MouseMove(ByVal Button, ByVal Shift, ByVal X, ByVal Y)
call Procedure1()
end sub
Sub Procedure1()
w=w+1
if w>9 then x=x+1:w=0
ones.Caption = w
if x>9 then y=y+1:x=0
tens.Caption = x
if y>9 then z=z+1:y=0
hundreds.caption=y
if z>9 then t=t+1:y=0:z=0
thousands.caption=z
if t>9 then t=0
tenthou.caption=t
end sub
-->
</SCRIPT>
<!-- This area also provides MouseMove events to the counter. -->
<SCRIPT LANGUAGE="VBScript">
<!--
Sub Rap_MouseMove(ByVal Button, ByVal Shift, ByVal X, ByVal Y)
call Procedure1()
end sub
-->
</SCRIPT>
<!-- The three bean buttons set values that determine the height and color of graph label controls. These values could also be set by remote dynamic data.
-->
<SCRIPT LANGUAGE="VBScript">
<!--
Sub revenue_MouseDown(Button, Shift, X, Y)
nintwo.BackColor = &H00000000
nintwo.Height = 16
nintwo.Top = 194
ninthre.Height = 20
ninthre.Top = 190
ninfour.BackColor = &H00000000
ninfour.Height = 35
ninfour.Top = 175
ninfive.BackColor = &H00000000
ninfive.Height = 75
ninfive.Top = 135
ninsix.BackColor = &H00000000
ninsix.Height = 125
ninthre.BackColor = &H00000000
ninsix.Top = 85
call Procedure2()
end sub
-->
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub expenses_MouseDown(Button, Shift, X, Y)
nintwo.BackColor = &H000000FF
nintwo.Height = 13
nintwo.Top = 197
ninthre.BackColor = &H000000FF
ninthre.Height = 16
ninthre.Top = 194
ninfour.BackColor = &H000000FF
ninfour.Height = 28
ninfour.Top = 182
ninfive.BackColor = &H000000FF
ninfive.Height = 35
ninfive.Top = 175
ninsix.BackColor = &H000000FF
ninsix.Height = 55
ninsix.Top = 155
call Procedure2()
end sub
-->
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub profit_MouseDown(Button, Shift, X, Y)
nintwo.BackColor = &H00408000
nintwo.Height = 3
nintwo.Top = 207
ninthre.BackColor = &H00408000
ninthre.Height = 4
ninthre.Top = 206
ninfour.BackColor = &H00408000
ninfour.Height = 6
ninfour.Top = 204
ninfive.BackColor = &H00408000
ninfive.Height = 40
ninfive.Top = 170
ninsix.BackColor = &H00408000
ninsix.Height = 70
ninsix.Top = 140
call Procedure2()
end sub
-->
</SCRIPT>
<!-- This displays the numerical values that set the height of the bars. -->
<SCRIPT LANGUAGE="VBScript">
<!--
Sub Procedure2()
readout1.Caption = " $"&nintwo.height
readout1.left=nintwo.left
readout1.top=nintwo.top-readout1.height-1
readout1.visible=-1
readout2.Caption = " $"&ninthre.height
readout2.left=ninthre.left
readout2.top=ninthre.top-readout2.height-1
readout2.visible=-1
readout3.Caption = " $"&ninfour.height
readout3.left=ninfour.left
readout3.top=ninfour.top-readout3.height-1
readout3.visible=-1
readout4.Caption = " $"&ninfive.height
readout4.left=ninfive.left
readout4.top=ninfive.top-readout4.height-1
readout4.visible=-1
readout5.Caption = " $"&ninsix.height
readout5.left=ninsix.left
readout5.top=ninsix.top-readout5.height-1
readout5.visible=-1
end sub
dim cntrol
-->
</SCRIPT>
<!-- Characteristics of various controls defined below. -->
<PARAM NAME="Caption" VALUE="Begun as a buying club through which a few friends obtained the finest coffees in the world, Volcano Coffee has become a major corporation with fifty-four locations in seven countries. After only five short years, our business is really starting to perk.">
